home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / almanac1.sit / Almanac 1.82.sit / Almanac / card_2966.txt < prev    next >
Text File  |  1990-04-21  |  5KB  |  250 lines
  1. -- card: 2966 from stack: in
  2. -- bmap block id: 7067
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: Origin
  6. ----- HyperTalk script -----
  7. on elong
  8.   go first cd
  9.   put line 5 of fld Pos of cd sun into sra
  10.   put line 6 of fld Pos of cd sun into sdec
  11.   repeat with i=4 to 10
  12.     set cursor to busy
  13.     put (sra -  line 5 of fld Pos of cd i) into dra
  14.     put (sdec - line 6 of fld Pos of cd i) into ddec
  15.     put (dra+360) mod 360 into arg
  16.     --put arg
  17.     --pause
  18.     if arg>180 then
  19.       get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
  20.       put "E" into dir
  21.     else
  22.       get round(sqrt(arg*arg + ddec*ddec))
  23.       put "W" into dir
  24.     end if
  25.     put (short name of cd i) & " -- " & it && dir into line i-3 of cd fld "elong"
  26.   end repeat
  27. end elong
  28.  
  29.  
  30. -- part 2 (field)
  31. -- low flags: 81
  32. -- high flags: 4001
  33. -- rect: left=4 top=24 right=74 bottom=471
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 15026
  38. -- text size: 10
  39. -- style flags: 0
  40. -- line height: 13
  41. -- part name: Sidereal Cheb
  42.  
  43.  
  44. -- part 9 (field)
  45. -- low flags: 00
  46. -- high flags: 4000
  47. -- rect: left=129 top=74 right=140 bottom=208
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 15026
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Coords
  56.  
  57.  
  58. -- part 18 (button)
  59. -- low flags: 00
  60. -- high flags: 8003
  61. -- rect: left=36 top=310 right=331 bottom=174
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Update for Today
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   global force
  73.   put true into force
  74.   repeat with i=2 to 10
  75.     go card i
  76.   end repeat
  77.   put false into force
  78.   send mouseUp to bg btn conj
  79.   go cd origin
  80.   elong
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 23 (field)
  86. -- low flags: 00
  87. -- high flags: 0002
  88. -- rect: left=38 top=243 right=280 bottom=271
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 15011
  93. -- text size: 14
  94. -- style flags: 256
  95. -- line height: 18
  96. -- part name: Algol
  97.  
  98.  
  99. -- part 24 (field)
  100. -- low flags: 00
  101. -- high flags: 0004
  102. -- rect: left=272 top=164 right=281 bottom=389
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 15026
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Elong
  111.  
  112.  
  113. -- part 31 (field)
  114. -- low flags: 80
  115. -- high flags: 0000
  116. -- rect: left=40 top=163 right=226 bottom=239
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 0
  120. -- font id: 3
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Daily
  125.  
  126.  
  127. -- part 33 (button)
  128. -- low flags: 00
  129. -- high flags: 8003
  130. -- rect: left=365 top=310 right=331 bottom=506
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Delete Occultations
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   global total,userName
  142.   if "Mike Kaz" is in userName then exit mouseUp
  143.   Answer "Are you really sure??? (Can't be undone!)" with "No" or "Yes"
  144.   if it is "No" then exit mouseUp
  145.   put "Now deleting Lunar Occultation Things.  Please wait..."
  146.   set lockMessages to true
  147.   set lockScreen to true
  148.   go cd "Moon"
  149.   put false into total
  150.   choose fld tool
  151.   repeat until (number of cd flds) = 0
  152.     click at the loc of cd fld 1
  153.     doMenu "Cut Field"
  154.   end repeat
  155.   choose btn tool
  156.   repeat until (number of cd btns) = 0
  157.     click at the loc of cd btn 1
  158.     doMenu "Clear Button"
  159.   end repeat
  160.   choose tool 4
  161.   drag from 41,77 to 164,113
  162.   doMenu "Clear Picture"
  163.   go first cd
  164.   choose btn tool
  165.   click at the loc of btn "Delete Occultations"
  166.   doMenu "Clear Button"
  167.   click at the loc of bg btn "topo"
  168.   doMenu "Clear Button"
  169.   choose fld tool
  170.   click at the loc of fld pct
  171.   put "Click on Delete button..."
  172.   doMenu "Cut Field"
  173.   put "Occultation Delete Complete..."
  174.   wait 90 ticks
  175.   hide message box
  176.   choose browse tool
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part contents for card part 9
  182. ----- text -----
  183. 33.57500
  184. -84.001639
  185. 238
  186. 5.0 (EDT)
  187.  
  188. -- part contents for background part 7
  189. ----- text -----
  190. Sidereal Time = 5:46
  191. 5.773
  192.  
  193. -- part contents for background part 6
  194. ----- text -----
  195. Universal Time = 21:22
  196. 21.383
  197. 226
  198.  
  199. -- part contents for background part 14
  200. ----- text -----
  201. Card
  202.  
  203. -- part contents for background part 31
  204. ----- text -----
  205. Julian Date = 2448003.391
  206.  
  207. -- part contents for card part 23
  208. ----- text -----
  209. Next minimum of Algol occurs in 21.5 hours at JD=2448004.288
  210. 48004.288
  211.  
  212. -- part contents for background part 10
  213. ----- text -----
  214.  
  215.  
  216.  
  217.  
  218.  
  219. -- part contents for background part 39
  220. ----- text -----
  221.  11%-
  222.  
  223. -- part contents for card part 24
  224. ----- text -----
  225. Mercury -- 17 E
  226. Venus -- 45 W
  227. Mars -- 61 W
  228. Jupiter -- 67 E
  229. Saturn -- 98 W
  230. Uranus -- 115 W
  231. Neptune -- 109 W
  232.  
  233.  
  234. -- part contents for card part 31
  235. ----- text -----
  236. 1990
  237.  
  238. -- part contents for card part 2
  239. ----- text -----
  240. 37.43472829 12.02491879 .00000373 -.00000031 .00000479 .00001635 -.00000308 -.00000598 -.00000087 .00000071 
  241.  
  242. -- part contents for background part 13
  243. ----- text -----
  244. Ori
  245.  
  246. 4.51838
  247.  
  248. -- part contents for background part 28
  249. ----- text -----
  250. 21 April 1990